home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / ActItems24.cpt / ActItems24 / Action Items / card_28479.txt < prev    next >
Text File  |  1987-10-20  |  3KB  |  127 lines
  1. -- card: 28479 from stack: in
  2. -- bmap block id: 28834
  3. -- flags: 4000
  4. -- background id: 27702
  5. -- name: Intro Card
  6. ----- HyperTalk script -----
  7. on enterKey
  8.   set hilite of background button "Start" to true
  9.   set lockScreen to true
  10.   hide background field "My Name Info"
  11.   set hilite of background button "Start" to false
  12.   go to first card of background "Action Items"
  13.   find the long date in background field ID 9
  14.   put number of this card into X
  15.   if X = number of cards then
  16.     hide background button "Next"
  17.     hide background button "Last Card"
  18.   else
  19.     show background button "Next"
  20.     show background button "Last Card"
  21.   end if
  22.   if X = 12 then
  23.     hide background button "Prev"
  24.     hide background button "First Card"
  25.   else
  26.     show background button "Prev"
  27.     show background button "First Card"
  28.   end if
  29.   hide field 3
  30.   hide field 4
  31.   set lockScreen to false
  32.   click at 72,109
  33. end enterKey
  34.  
  35. on idle
  36.   set hilite of background button "Start" to true
  37.   wait for 1 seconds
  38.   set hilite of background button "Start" to false
  39. end idle
  40.  
  41.  
  42. -- part 3 (button)
  43. -- low flags: 00
  44. -- high flags: A000
  45. -- rect: left=199 top=273 right=328 bottom=296
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 17076 / 17076
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Action Items
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual effect iris open
  57.   go to stack "Action Items"
  58. end mouseUp
  59.  
  60.  
  61. -- part 2 (button)
  62. -- low flags: 00
  63. -- high flags: A000
  64. -- rect: left=199 top=273 right=328 bottom=296
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 17076 / 17076
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Install on Home Card
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   answer "Install Action Items button on Home card?" with "OK" or "Cancel"
  76.   if it is "Cancel" then
  77.     exit mouseUp
  78.   end if
  79.   set lockmessages to true
  80.   hide button 2
  81.   set userLevel to 5
  82.   choose button tool
  83.   click at loc of button 1
  84.   doMenu Copy Button
  85.   show button 2
  86.   go home
  87.   doMenu Paste Button
  88.   set loc of button "Action Items" to 250,250
  89.   answer "Drag Action Items button to desired location"
  90.   wait until the mouse is down
  91.   set hilite of button "Action Items" to true
  92.   repeat until the mouse is up
  93.     set loc of button "Action Items" to the mouseLoc
  94.   end repeat
  95.   set hilite of button "Action Items" to false
  96.   choose browse tool
  97.   go back
  98.   play harpsichord "ee c"
  99.   set lockmessages to false
  100. end mouseUp
  101.  
  102.  
  103. -- part 4 (field)
  104. -- low flags: 01
  105. -- high flags: 0000
  106. -- rect: left=469 top=326 right=342 bottom=512
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 9
  112. -- style flags: 0
  113. -- line height: 12
  114. -- part name: Version#
  115.  
  116.  
  117. -- part contents for card part 4
  118. ----- text -----
  119. Ver 2.4
  120.  
  121. -- part contents for background part 5
  122. ----- text -----
  123. Developed and Scripted
  124. by
  125. Mike Clary
  126. Please address comments and recommendations to MClary on GEnie!
  127.